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COMSCLOSE FORTRAN compatibility CALL CLOSE 18. -Sep-1984 00:08:5 AX-11 Bliss-32 V4.0-7 Page 1 
14-Sep-1984 90:98:38 FORRTL. BR RCICOMCLOSE .83 B32;1 . (1) > 
0 8 MODULE COMSCLOSE SETA TLE Onna compatibility CALL CLOSE’ 
IDENT = '1-006', ! File: COMCLOSE.B832 Edit: SBL1006 
LINKAGE (FORTRAN) ! Specify call by-reference 


BEGIN 


LRA RARER ERRATA AEE AAAS 


: 1 0001 

; ¢ Oe 

; 003 0 

; 4 004 0 

; 5 0005 1 

; 6 0006 1 

3 7 0007 1 

3 8 0008 1 !* * 

; 9 0009 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 

; Ww 0010 1 i DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 

; 1} bet : ‘* ALL RIGHTS RESERVED. * 

F :@ * 
; 18 $013 1 !* THIS her iS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPzED * 
; - 0014 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 

Mo 0015 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * | 
ER 0016 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
; 17 0017 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
; Bats : * TRANSFERRED. * 

: '® ® 
; @ 0020 1 !* He 3 INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; 21 0021 1 !* SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
; $¢ Boss : = CORPORATION. * | 
: 'e ® 
; 626 0024 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
ee: 0025 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
: = 0026 1 !* * 
ey: 0027 1 !* * 

: 28 0028 1 eee rere eee eR E TAREE EEE EERE 
; ey 594 73 

; ww 0030 1 
ae 0031 1 !++ 
; 0032 1 ! FACILITY: FORTRAN Compatibility Library 
; 3S 0033 1! 
; 54 0034 1 ! ABSTRACT: 

, 2p 0035 1! 
3 $$ st) } CALL CLOSE Procedure - Close specified locical unit. | 
3 $s sie ! ENVIRONMENT: User Mode - AST re-entrant - not part of shared section | 
; rt sre : AUTHOR: Thomas N. Hastings, CREATION DATE: 4=-Dec-1977 
s. 62 0042 1 ! MODIFIED BY: 

>; «643 0043 1! 

: (44 0044 1! Thomas N. Hastings, 4-Dec-1977: VERSION 0 

s 65 0045 1! 0-1 = origina 

: 646 0046 1! 6-6 - Use PSECT ape “ 8-Dec-77 

~ > OF 0047 1! 0- - Fix d prob H 9-Dec-77 | 
; | «(48 0048 1! 0-4 = PSEct Fe COMPATSCODE” TNH 9-Jan-78 
; «649 0049 1 ! 0-05 = Change REQUIRE files for er system build. DGP 28-Apr-78 

;. 0050 1! 0-6 = Change file name to COMCLOSE.B32 yond change REQUIRE 

pS SN 0051 1! file names similarly. ibe it-a 

$ 6 0052 1 ! 1-001 - Update version number and copye taht notice. JBS 16-NOV-78 

ah 0053 1! 1-006 - Declare NULLPARAMETER for new BLISS comptier. JBS 22-NOV-78 
; 0054 1 ! 1-005 - Change Sones of REQUIRE files from FOR... to OTS... JBS 06-DEC-78 
; 3 0055 1 ! 1-004 - shanpe 0 SOPN back to FOROPN. JBS 15-DEC- 38 
; + B036 1 ! 1-005 = Add LI RARY RILRTARLE so FOROPN can use its symbols. 
‘oe 0057 1! JBS 10-APR-19 


CORSCLOSE A gelieeaeel” congansnbiaetice th ites Sct ifcke 3ep=1984 12:81:08 ERORRTL SRESCOMCLCSE 032: 1 poor 4g 


: 38 058 1 1 1-006 = Use prologue file. SBL 28-Jul-1983 | 
: 60 060 1 
: 6 061 1 !<BLF/PAGE> 
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COMSCLOSE FORTRAN compatibility CALL CLOSE 1o-3e0= 1386 90:08:38 AX-11 Bliss<-32 V4.0-7 Page 
14-Sep- 12:31:2 FORRTL.SRCJCOMCLOSE. 633; 37 


; & p06¢ 1! 

>; 66 065 1 ! PROLOGUE FILE: 

; @& 064 1! 

; 08 065 1 

3 4 ? : } REQUIRE "RTLIN:FORPROLOG'; ' FORS definitions 

: 69 133 1! 

: 0 134 1 ! TABLE OF CONTENTS: 

ae 135 1! 

$ 7 0136 1 

eS 137 1 FORWARD ROUTINE 

3 es 4 4 ! CLOSE : NOVALUE; ! CALL CLOSE _ no prefix since not mapped by compiler. 
a 0140 1! 

os ae 0141 1 ! MACROS: 

3 78 3186 1! 

3 79 1435 1! 

; wD 0144 1 ! EQUATED SYMBOLS: 

car 2s 0145 1! 

3; 6 «662 0146 1! 

3 68S 0147 1 ! OWN STORAGE: 

; & 0148 1! 

3 §5 0149 1! 

; & 0150 1 ! EXTERNAL REFERENCES: 

5. OF 0151 1! 

; 8136 1 

; =6«8B9 0153 (1 sashes ROUTINE . 

; 90 0154 1 FORSCLOSE : NOVALUE ADDRESSING_MODE (GENERAL), ! Returns success ar failure 

: «91 0155 (1 FORSSERR_OPECLO : NOVALUE ADDRESSING_MODE (GENERAL) , 

; 3¢ 0156 1 Error handler to set user PC in signal arg List 
: a aET4 ’ FORS$SIG_NO_LUB : NOVALUE ADDRESSING_MODE (GENERAL) ; ! Signal_stop when no LUB allocated 


g 
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COMSCLOSE FORTRAN compatibility CALL CLOSE ise -1984 00:08:5 AX-11 Bliss-32 V4.0-74 Page 
1-006 CLOSE . aaa 99:99:38 FORRTL.SRCJCOMCLOSE .B32;1 . ( 
3 96 159 1 ZSBTTL'CLOSE' 
; 160 1 GLOBAL ROUTINE CLOSE ( 
; 161 1 LOGICAL_UNI T_NO) ! Adr. of logical unit nubmer 
; 299 196 1 UE = ! no value 
; 100 165 (1 
s 101 0164 1 !+4¢ 
: 196 8192 1 ! FUNCTIONAL DESCRIPTION: 
: 166 1! 
: 104 0167 1! Close file on specified logical unit. 
; 105 0168 1! Perform any disposition specified in OPEN. 
; 198 8198 ; This is done by performing a FORTRAN CLOSE (UNIT = LOGICAL_UNIT_NO) 
; 108 0171 1 =! FORMAL PARAMETERS: 
: 109 8158 1! 
3 BS Oie7 , } LOGICAL_UNIT_NO.rw.r ! Adr. of word (SIC) containing logical unit number 
3 1g 0175 1 ! IMPLICIT INPUTS: 
; 4 0176 1! 
: (114 0177 1! See FORSCLOSE. 
s 115 0178 i! 
; 6116 0179 1 ! IMPLICIT OUTPUTS: 
3: (117 0180 1! 
: «118 0181 1! See FORSCLOSE. 
3; (119 Biss 1! 
: 120 0183 1 ! ROUTINE VALUE: 
s tel 0184 1 ! COMPLETION CODES: 
s 122 0185 1! 
3 Yes 0186 1! NONE 
> 124 0187 1! 
3 i$? 44 : SIDE EFFECTS: 
3 ter 0190 1! SIGNAL_STOPs FORS_INVARGFOR (48="INVALID ARGUMENT TO FORTRAN 1/0 LIBRARY') 
> 128 0191 1! See FORSCLOSE for rest of errors. 
: 129 3136 1 t= 
; 130 0193 1 
s 131 0194 2 BEGIN 
3 6332 0195 2 
3 353 0196 2 BUILTIN 
: «(134 0197 2 NULLPARAMETER; 
s 135 0198 2 
; 136 0199 2 LOCAL 
3 ice Bsne § CLOSE_KEY_WORD : BLOCK (4, BYTE]; ! CLOSE keyword storage 
3; «64139 34 § IND . : 
; re BSpz § L_UNWIND_ACTION = UPLIT (FORSK_UNWINDNOP) ; ! No action on unwind 
3 166 0205 P 
3 ye 8 Be L_UNWIND_ACTION : VOLATILE; ! ARg to handler 
3 «6145 0208 ENABLE 
: 136 8598 FORSSERR_OPECLO (L_UNWIND_ACTION); ' Enable error handler 
; 148 0211 ! Indicate no unwind action, since FORSCLOSE will also 
: 4 asi¢ ' have setup a handler. Don't pass 2nd arg since not an ERR= 
: (151 0314 '¢ 
s 152 0215 ! SIGNAL_STOP FORS_INVARGFOR (48="INVALID ARGUMENT TO FFORTRAN 1/0 LIBRARY") 


3 


C 
1 


= compatibility CALL CLOSE 


: 


kd at as i tt 
WR" OOODNOULSW 


; Routine Size: 


F 13 

16-Sep-1984 VU AX-11 Bliss=-32 V4.0-74 Pa 
12-08-1382 99:9F:3 FORRTL.SRCICOMCLOSE B32: 1 ad 
H if no argument at all. 


IF NULLPARAMETER (1) THEN FORSS$SIG_NO_LUB (FORSK_INVARGFOR, 0); 


'¢ 

i Build OPEN/CLOSE Keyword arg list 

i Pass address of word containing Loctcat UNIT 

: ; Since no ERR= specified, any errors will be signaled. 


te ENSB_KEY) = OPENSK_UNIT; 
OPENSB”ARG_TYPE] = OPENSK-A ARG_W 
SE_KEY_QORD; .LOGICAL_UNIT_NO); 


«TITLE COMSCLOSE FORTRAN compatibility CALL CLOSE 
[IDENT \1-006\ 


.PSECT _FORSCODE,NOWRT, SHR, PIC,2 
00000001 00000 P.AAA: .LONG 1 
L_UNWIND_ACTION= 
TEXTRN FORSCLOSe, FORSSERR_OPECLO 
“EXTRN FORS$S1G_NO_LUB 


00 -ENTRY CLOSE, Save nothing 
MOVAL FP) 


00 00000 
6D 0029 CF DE 00002 3$, 
6C 95 00007 TSTB. — (AP) 
05 13 00009 BEQL '1$ 
04 AC 05 0000B TSTL  4(AP) 
OA 12 0000E BNEG 2$ 
7E 30 7D 00010 18: MOVQ #48, -(SP) 
000000006 00 02 FB 00013 CALLS #2, FORSSS16 NO_LUB 
50 01 90 OOO1A 2$ MOVB 4 }. cL Oss WORD 
03 FO 0001D INSV oe CLOSE _KEY_WORD 
04 AC dD 00022 PUSHL feertat wNir 
50 DD 00025 PUSHL CLOSE KEY W 
000000006 00 02 FB 00027 CALLS #2, FORSCLOSE. 
04 0002€ RET 
0000 990 F 3$: WORD Save nothin 
C8 «AF «OOF 00031 PUSHAB L_UNWIND_ACTION 
01 oD 000 PUSHL 4#T 
5E DD 00 PUSH 
7E 04 AC 7D 00038 mova -(SP) 
000000006 00 03 FB 0005¢ CALLS is) PFORSSERR _OPECLO 
04 0004 RET 


Routine Base: _FORSCODE + 0004 


' End of module 


Bee Oe Be Oe Oe Oe Oe Oe Oe Oe Oe Oe Oe Oe Be Oe Os Oe He oe 
Re Be Oe Be Oe Be Be Oe Se Se Be Se Oe Se Ge HS SH Se Se SH Se Se Se SHS SH Oe Oe Be Se Oe Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se SH SHS Se ee ee sean 


we ek pet ematonnttdiaten heme bate 8c 19:99:28 © EPOnmt sreicomcose 1635; 1 eel 

3 We 0235 0 ELUDOM 

: PSECT SUMMARY 

: Name Bytes Attributes | 

; _F ORSCODE 72 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) | 
| 

; Library Statistics 

; coeccee= Symbols -------- Pages Processing | 

; File Total Loaded Percent Mapped Time 

;  _$255$DUA28: FRoantDS0nSr Greta de 9776 0 0 581 00:00.9 | 

> ~$255$DUA28: CFORRTL.OBJJFORLIB.L32;1 711 6 0 52 00:00.5 

; ~$255$DUA28: CFORRTL.OBJIRTLLIB.L32;1 36 0 0 8 00:00.1 

: COMMAND QUALIFIERS 

; BLISS/CHECK=<FIELD, INITIAL,OPTIMIZE) /NOTRACE/LIS=LIS$:COMCLOSE/OBJ=OBJ$:COMCLOSE MSRC$:COMCLOSE/UPDATE=(ENH$: COMCLOSE) 

; Size: 68 code + 4 data bytes 


un Time 00:04.1 
Plessad Hees as $3 i 
Lines/CPU Min: 464 

Lexenes/CPU-Rin: 6663 
Y Used: 41 pages 
oer ation Complete 


AL EQUIPMENT CORPORATION | 
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